Sub 평가()

    Range("D3").ClearContents
    
    With WorksheetFunction
    
        Range("B3").Value = .RandBetween(50, 100)
        Range("C3").Value = .RandBetween(50, 100)
        
    End With

    If Range("B3").Value >= 70 And Range("C3").Value >= 70 Then
    
            Range("D3").Value = "합격"
                
    ElseIf Range("B3").Value >= 90 Or Range("C3").Value >= 90 Then
    
        Range("D3").Value = "합격"
    
    End If

End Sub